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CHAPTER  12 


THE  AMBIT/G  INTERPRETER  AS  AN  AMBIT/G  PROGRAM 

This  volume  of  "A  Report  on  AMBIT/GM  describes  the  AMBIT/G 
interpreter  as  an  AMBIT/G  program,  which  is,  in  fact,  how  it  is  implemented. 
We  begin  by  giving  a  short  verbal  description  of  the  interpreter  where  each 
function  of  the  interpreter  is  briefly  discussed.  The  remainder  of  the  volume 
consists  of  many  pages  of  diagrams  which  constitute  the  listing  of  the  inter¬ 
preter. 


The  reader  who  wants  to  understand  the  program  (rather  than  just  look 
at  the  pretty  pictures)  is  urged  to  be  familiar  with  the  contents  of  Chapters  3 
and  4  of  this  report  in  Volume  I.  Although  we  have  attempted  to  describe  com¬ 
pletely  what  the  interpreter  does,  it  is  the  listing  of  the  interpreter  which 
can  be  used  as  a  final  reference  for  obscure  issues.  Furthermore,  this  listing 
contributes  to  a  formal  definition  of  AMBIT/G.  The  listing  begins  with  definitions 
of  characteristic  shapes  of  built-in  nodes  used  by  the  interpreter  and  links  used 
by  the  interpreter. 

A  table  of  contents  for  the  listing  is  given  at  the  beginning  of  the 

listing. 

A  PJgCRgTLON 

The  AMBIT/G  interpreter  consists  of  a  main  program  and  ten  major 
functions.  In  addition,  the  interpreter  includes  calls  on  functions  'tailJT, 

'tail_2'  and  ‘head_l'  which  are  used  to  transmit  arguments  and  results.  The 
listing  of  the  interpreter  does  not  include  the  definitions  of  these  functions. 
Another  kind  of  omission  in  the  listing  is  the  write  calls  on  built-ins 
'read_f unction'  and  'write_f unction'  to  define  the  functions  of  the  interpreter. 

Since  Chapter  4  (in  Volume  I)  described  the  interesting  actions  of  the 
interpreter,  we  shall  only  include  here  individual  descriptions  of  its  ten 
major  functions. 
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getnode 


This  function  is  used  to  get  a  node  off  of  a  free  list.  Its  first 
argument  is  the  head  node  of  some  free  list,  and  its  second  argument  is 
the  terminator  node  for  the  list.  The  result  of  the  function  is  a  node  off  of 
the  front  of  the  list  if  there  is  one.  Otherwise,  'locate*  is  used  to  find  a 
node  of  the  appropriate  type  which  is  the  result  of  the  function. 

freelist 


This  function  is  called  as  a  write  function  with  two  tail  arguments 
and  a  head  argument.  Its  first  tail  argument  is  the  head  node  of  some  free 
list,  and  its  second  tail  argument  is  the  terminator  node  for  the  list.  The 
head  argument  is  a  list  of  zero  or  more  nodes  of  the  type  corresponding  to 
the  tail  arguments;  the  effect  of  this  function  is  to  return  this  list  to  the 
free  list  specified  by  the  tail  arguments . 

arglist 


This  function  is  used  to  prepare  a  'tails'  argument  list  or  a  'heads' 
argument  list  for  making  a  call  on  a  user  function.  Its  first  argument  is 
a  'diamond'  which  is  the  destination  of  either  the  'org'  link  or  'dest'  link 
of  the  'linkrep'  which  represents  the  user  function  call  about  to  be  made. 

The  second  argument  of  'arglist'  is  either  'flag  def'  or  'flag  undef*  .  If 
the  second  argument  is  'flag  def',  this  function  forms  as  its  result,  a  list 
of  'pipe'  nodes.  The  'value'  link  of  each  'pipe'  node  points  to  a  user  node 
which  is  the  destination  of  the  'rep'  link  of  the  'noderep'  pointed  to  by  the 
corresponding  'diamond'  of  the  list  supplied  as  first  argument.  If,  however, 
the  second  argument  is  'flag  undef',  this  function  forms  as  its  result  a 
list  of  'pipe*  nodes  whose  'value'  links  point  to  the  node  'undef  undef'.  The 
result  list  then  has  the  same  length  as  the  length  of  the  list  supplied  as  first 
argument. 

typelist 


This  function  is  used  to  prepare  a  list  of  'type*  nodes  connected  by 
'cell's  for  a  read  call  on  either  the  built-in  read  function'  or  'write  function' . 


2 


Its  single  argument  is  a  'diamond'  which  is  the  destination  of  the  'org'  link 
of  the  'linkrep'  which  represents  the  link  being  processed.  Its  result  is 
a  list  of  'cell's,  where  each  'cell'  corresponds  to  a  'diamond'  in  the(possl- 
bly  null)  list  given  as  argument.  The  'value'  link  of  each  'cell'  points  to  the 
'type'  node  corresponding  to  the  type  of  the  destination  of  the  'rep'  link  of 
the  'noderep'  pointed  to  by  the  corresponding  'diamond'. 

vset 


This  function  is  called  as  a  write  function  to  verify  or  to  set  (bind) 
a  'rep'  link  of  a  'noderep'  pointed  to  by  a  'diamond'  in  a  list  of  'diamond's 
hanging  off  the  'dest'  link  of  a  'linkrep'  node.  Its  first  tall  argument  is  the 
'noderep'  in  question,  and  its  second  tail  argument  is  the  'diamond'  in 
question  which  points  to  that  'noderep'.  The  one  head  argument  is  the  user 
node  to  be  considered.  If  the  'sets'  link  of  the  'noderep'  points  to  the 
'diamond',  the  'rep'  link  of  the  'noderep'  is  set  to  point  at  the  user  node. 
Otherwise,  the  destination  of  the  'rep'  link  is  checked  to  see  if  it  is  the 
user  node;  if  not,  'circle  proceed'  is  made  to  point  at  'flc>g  no'. 

lvset 


This  function  is  called  as  a  write  function  to  apply  the  'vset'  function 
Individually  to  several  sets  of  arguments  which  correspond  to  all  heads  of  a 
read  call  made  on  a  user  function.  Its  one  tail  argument  is  the  'diamond* 
which  is  the  destination  of  the  'dest'  link  of  the  'linkrep'  representing  the 
user  function  call  which  just  occurred.  Its  one  head  argument  is  the  list  of 
'pipe's  used  to  transmit  the  (possibly  zero)  results  of  the  user  function.  If 
the  two  lists  do  not  have  the  same  number  of  elements,  an  error  condition  occurs. 
The  function  ends  by  returning  the  given  'pipe'  list  to  the  'pipe'  free  list. 

compile 

This  function  is  called  with  one  argument  which  is  the  'rule'  node  which 
is  to  be  compiled.  A  section  in  the  chapter  on  the  Interpreter  (in  Vol.  I) 
described  this  function  in  detail. 
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lnltnode 


This  function  is  called  by  the  compiler  to  initialize  the  'noderep' 
which  is  its  only  argument.  If  the  'variability'  link  of  the  'noderep'  points 
to  'flag  fixed',  then  its  'sets'  link  is  made  to  point  to  'diamond  matched'; 
or  if  the  'variability'  link  of  the  'noderep'  points  to  'flag  dummy',  then  its 
'sets'  link  is  made  to  point  to  'diamond  unmatched'.  Otherwise,  an  error 
condition  occurs . 

initlist 


This  function  is  called  by  the  compiler  to  initialize  a  list  of  'noderep's 
connected  by  'diamond's.  The  'diamond'  which  heads  such  a  (possibly  empty) 
list  is  the  only  argument.  The  'initnode'  function  is  applied  to  every  'noderep' 
in  the  list. 

allmatch 


This  function  is  called  by  the  compiler  to  check  whether  all  'nodrep's 
have  been  matched  on  a  list  of  'noderep's  connected  by  'diamond's.  Its  one 
argument  is  a  'diamond'  which  heads  such  a  list.  If  any  'noderep'  in  the 
(possibly  empty)  list  has  a  'sets'  link  pointing  to  'diamond  unmatched'  then 
the  one  result  is  'diamond  unmatched';  otherwise,  it  is  'diamond  matched'. 
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THE  LISTING 


The  remainder  of  this  volume  consists  of  the  listing  of  the  AMBIT/G 
Interpreter.  The  following  is  a  table  of  contents  of  the  listing. 


Function 

(definitions) 

i  -  V 

6 

interpreter 

1  -  29 

11 

getnode 

30  -  30a 

52 

freelist 

31  -  31 

54 

arglist 

32  -  32b 

55 

typelist 

33  -  33a 

58 

vset 

34  -  35 

lvset 

36  -  37 

62 

compile 

101  -  109 

64 

initnode 

110  -  110 

73 

initlist 

111  -  111 

74 

allmatch 

112  -  112 

75 

*  Note  that  the  loader  page  titles  appear  inlhe  upper-right  corher  of  each 
page. 
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The  Interpreter  has 
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number  of  tails  or 
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The  Interpreter  has 
detected  a  wrong 
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heads  on  a  read-call  on  the 
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